/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / c-fill.elc.z / c-fill.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 30 3a 33 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:38 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 63 2d 66 69 6c 6c | 2e 65 6c 0a 3b 3b 3b 20 |s/c-fill|.el.;;; |
|000000b0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 32 30 |emacs ve|rsion 20|
|000000c0| 2e 34 20 22 45 6d 65 72 | 61 6c 64 22 20 58 45 6d |.4 "Emer|ald" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs  Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))).    |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 63 2d 66 69 6c 6c 2e |(error "|`c-fill.|
|000001f0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|00000200| 20 66 6f 72 20 45 6d 61 | 63 73 20 32 30 22 29 29 | for Ema|cs 20"))|
|00000210| 0a 0a 28 6f 72 20 28 62 | 6f 75 6e 64 70 20 27 63 |..(or (b|oundp 'c|
|00000220| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000230| 29 20 28 73 65 74 71 20 | 63 75 72 72 65 6e 74 2d |) (setq |current-|
|00000240| 6c 6f 61 64 2d 6c 69 73 | 74 20 6e 69 6c 29 29 0a |load-lis|t nil)).|
|00000250| 0a 0a 23 40 36 33 20 2a | 43 6f 6e 74 72 6f 6c 73 |..#@63 *|Controls|
|00000260| 20 77 68 65 74 68 65 72 | 20 67 6c 6f 62 61 6c 20 | whether| global |
|00000270| 63 6f 6d 6d 65 6e 74 73 | 20 68 61 76 65 20 61 6e |comments| have an|
|00000280| 20 69 6e 69 74 69 61 6c | 20 62 6c 61 6e 6b 20 6c | initial| blank l|
|00000290| 69 6e 65 2e 1f 0a 28 64 | 65 66 76 61 72 20 63 2d |ine...(d|efvar c-|
|000002a0| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 69 6e 67 |comment-|starting|
|000002b0| 2d 62 6c 61 6e 6b 20 74 | 20 28 23 24 20 2e 20 2d |-blank t| (#$ . -|
|000002c0| 35 39 39 29 29 0a 23 40 | 37 33 20 2a 49 66 20 73 |599)).#@|73 *If s|
|000002d0| 65 74 20 67 6c 6f 62 61 | 6c 20 63 6f 6d 6d 65 6e |et globa|l commen|
|000002e0| 74 73 20 61 72 65 20 69 | 6e 64 65 6e 74 65 64 20 |ts are i|ndented |
|000002f0| 74 6f 20 74 68 65 20 6c | 65 76 65 6c 20 6f 66 20 |to the l|evel of |
|00000300| 74 68 65 20 70 72 65 76 | 69 6f 75 73 20 6c 69 6e |the prev|ious lin|
|00000310| 65 2e 1f 0a 28 64 65 66 | 76 61 72 20 63 2d 63 6f |e...(def|var c-co|
|00000320| 6d 6d 65 6e 74 2d 69 6e | 64 65 6e 74 69 6e 67 20 |mment-in|denting |
|00000330| 74 20 28 23 24 20 2e 20 | 2d 37 31 35 29 29 0a 23 |t (#$ . |-715)).#|
|00000340| 40 36 34 20 2a 49 66 20 | 74 72 75 65 2c 20 63 6f |@64 *If |true, co|
|00000350| 6d 6d 65 6e 74 73 20 77 | 69 6c 6c 20 62 65 20 61 |mments w|ill be a|
|00000360| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 69 6e 64 |utomatic|ally ind|
|00000370| 65 6e 74 65 64 20 74 6f | 20 74 68 65 20 64 61 73 |ented to| the das|
|00000380| 68 2e 1f 0a 28 64 65 66 | 76 61 72 20 63 2d 63 6f |h...(def|var c-co|
|00000390| 6d 6d 65 6e 74 2d 68 61 | 6e 67 69 6e 67 2d 69 6e |mment-ha|nging-in|
|000003a0| 64 65 6e 74 20 74 20 28 | 23 24 20 2e 20 2d 38 33 |dent t (|#$ . -83|
|000003b0| 36 29 29 0a 23 40 37 31 | 20 49 66 20 74 72 75 65 |6)).#@71| If true|
|000003c0| 20 77 65 20 68 61 76 65 | 20 70 65 72 66 6f 72 6d | we have| perform|
|000003d0| 65 64 20 74 68 65 20 68 | 61 6e 69 6e 67 20 69 6e |ed the h|aning in|
|000003e0| 64 65 6e 74 20 61 6c 72 | 65 61 64 79 20 66 6f 72 |dent alr|eady for|
|000003f0| 20 74 68 69 73 20 63 6f | 6d 6d 65 6e 74 2e 1f 0a | this co|mment...|
|00000400| 28 64 65 66 76 61 72 20 | 63 2d 68 61 6e 67 2d 61 |(defvar |c-hang-a|
|00000410| 6c 72 65 61 64 79 2d 64 | 6f 6e 65 20 74 20 28 23 |lready-d|one t (#|
|00000420| 24 20 2e 20 39 35 33 29 | 29 0a 23 40 33 32 20 4b |$ . 953)|).#@32 K|
|00000430| 65 79 6d 61 70 20 75 73 | 65 64 20 69 6e 20 43 20 |eymap us|ed in C |
|00000440| 63 6f 6d 6d 65 6e 74 20 | 6d 6f 64 65 2e 1f 0a 28 |comment |mode...(|
|00000450| 64 65 66 76 61 72 20 63 | 2d 63 6f 6d 6d 65 6e 74 |defvar c|-comment|
|00000460| 2d 6d 6f 64 65 2d 6d 61 | 70 20 6e 69 6c 20 28 23 |-mode-ma|p nil (#|
|00000470| 24 20 2e 20 31 30 37 31 | 29 29 0a 28 62 79 74 65 |$ . 1071|)).(byte|
|00000480| 2d 63 6f 64 65 20 22 08 | ac 96 c1 5c 6e 21 10 c3 |-code ".|...\n!..|
|00000490| 08 c4 c5 23 88 c3 08 c6 | c7 23 88 c3 08 c8 c9 23 |...#....|.#.....#|
|000004a0| 88 c1 87 22 20 5b 63 2d | 63 6f 6d 6d 65 6e 74 2d |..." [c-|comment-|
|000004b0| 6d 6f 64 65 2d 6d 61 70 | 20 63 6f 70 79 2d 6b 65 |mode-map| copy-ke|
|000004c0| 79 6d 61 70 20 63 2d 6d | 6f 64 65 2d 6d 61 70 20 |ymap c-m|ode-map |
|000004d0| 64 65 66 69 6e 65 2d 6b | 65 79 20 22 1b 0d 22 20 |define-k|ey ".." |
|000004e0| 6e 65 77 6c 69 6e 65 20 | 22 1b 71 22 20 73 65 74 |newline |".q" set|
|000004f0| 2d 66 69 6c 6c 2d 61 6e | 64 2d 66 69 6c 6c 20 22 |-fill-an|d-fill "|
|00000500| 0d 22 20 73 65 74 2d 66 | 69 6c 6c 2d 61 6e 64 2d |." set-f|ill-and-|
|00000510| 72 65 74 75 72 6e 5d 20 | 34 29 0a 23 40 32 31 39 |return] |4).#@219|
|00000520| 20 45 64 69 74 20 61 20 | 43 20 63 6f 6d 6d 65 6e | Edit a |C commen|
|00000530| 74 20 77 69 74 68 20 66 | 69 6c 6c 69 6e 67 20 61 |t with f|illing a|
|00000540| 6e 64 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 2e 0a |nd inden|tation..|
|00000550| 54 68 69 73 20 70 65 72 | 66 6f 72 6d 73 20 68 61 |This per|forms ha|
|00000560| 6e 67 69 6e 67 20 69 6e | 64 65 6e 74 61 74 69 6f |nging in|dentatio|
|00000570| 6e 2c 20 73 79 6d 6d 65 | 74 72 69 63 20 70 6c 61 |n, symme|tric pla|
|00000580| 63 65 6d 65 6e 74 20 6f | 66 20 64 65 6c 69 6d 69 |cement o|f delimi|
|00000590| 74 65 72 73 2c 0a 20 61 | 6e 64 20 49 6e 64 65 6e |ters,. a|nd Inden|
|000005a0| 74 65 64 2d 54 65 78 74 | 20 6d 6f 64 65 20 73 74 |ted-Text| mode st|
|000005b0| 79 6c 65 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 2e |yle inde|ntation.|
|000005c0| 20 20 54 79 70 65 20 27 | 4d 2d 78 20 61 70 72 6f |  Type '|M-x apro|
|000005d0| 70 6f 73 0a 63 2d 63 6f | 6d 6d 65 6e 74 27 20 66 |pos.c-co|mment' f|
|000005e0| 6f 72 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 6f |or infor|mation o|
|000005f0| 6e 20 6f 70 74 69 6f 6e | 73 2e 1f 0a 28 64 65 66 |n option|s...(def|
|00000600| 61 6c 69 61 73 20 27 63 | 2d 63 6f 6d 6d 65 6e 74 |alias 'c|-comment|
|00000610| 20 23 5b 6e 69 6c 20 22 | 08 ab 83 c1 aa 81 c2 c3 | #[nil "|........|
|00000620| c4 0d c6 89 89 89 1e 07 | 1e 08 1d 1e 09 1e 5c 6e |........|......\n|
|00000630| 1e 0b 1e 0c 1e 0d 8a ce | cf d0 c3 23 ad 87 60 60 |........|...#..``|
|00000640| d1 5c 5c 7b d2 98 29 16 | 13 c6 16 14 d5 0e 16 21 |.\\{..).|.......!|
|00000650| 88 0e 13 ac b2 d7 20 88 | d8 63 88 d9 60 21 16 09 |...... .|.c..`!..|
|00000660| da 20 88 60 16 07 8a d0 | 79 88 db d2 0e 07 c3 23 |. .`....|y......#|
|00000670| 29 ab 8c 69 dc 5c 5c dd | 58 ab 85 de 63 88 aa 83 |)..i.\\.|X...c...|
|00000680| df 63 88 d7 20 88 aa 92 | d9 60 21 16 09 da 20 88 |.c.. ...|.`!... .|
|00000690| db e0 e1 20 c3 23 88 e2 | 79 88 0e 23 ab b4 8a 60 |... .#..|y..#...`|
|000006a0| 16 07 e4 79 88 db d2 0e | 07 c3 23 ab 88 db e0 0e |...y....|..#.....|
|000006b0| 07 c3 23 ac 9c e5 d2 21 | 88 e6 0e 0b 0e 07 c3 23 |..#....!|.......#|
|000006c0| 88 d9 60 21 16 09 e7 e8 | 21 ac 86 e9 0e 09 b1 02 |..`!....|!.......|
|000006d0| 88 29 d7 20 88 d5 0e 2a | 21 2e 08 87 22 20 5b 63 |.). ...*|!..." [c|
|000006e0| 2d 63 6f 6d 6d 65 6e 74 | 2d 69 6e 64 65 6e 74 69 |-comment|-indenti|
|000006f0| 6e 67 20 64 6f 2d 69 6e | 64 65 6e 74 65 64 2d 61 |ng do-in|dented-a|
|00000700| 75 74 6f 2d 66 69 6c 6c | 20 64 6f 2d 61 75 74 6f |uto-fill| do-auto|
|00000710| 2d 66 69 6c 6c 20 74 20 | 22 2f 2a 5c 5c 2a 2b 5b |-fill t |"/*\\*+[|
|00000720| 20 09 5d 2a 22 20 70 61 | 72 61 67 72 61 70 68 2d | .]*" pa|ragraph-|
|00000730| 73 74 61 72 74 20 6e 69 | 6c 20 6f 70 6f 69 6e 74 |start ni|l opoint|
|00000740| 20 70 61 72 61 67 72 61 | 70 68 2d 73 65 70 61 72 | paragra|ph-separ|
|00000750| 61 74 65 20 66 69 6c 6c | 2d 70 72 65 66 69 78 20 |ate fill|-prefix |
|00000760| 70 61 72 61 67 72 61 70 | 68 2d 73 74 61 72 74 2d |paragrap|h-start-|
|00000770| 72 65 66 20 63 6f 6d 6d | 65 6e 74 2d 73 74 61 72 |ref comm|ent-star|
|00000780| 74 2d 73 6b 69 70 20 63 | 6f 6d 6d 65 6e 74 2d 6d |t-skip c|omment-m|
|00000790| 75 6c 74 69 2d 6c 69 6e | 65 20 61 75 74 6f 2d 66 |ulti-lin|e auto-f|
|000007a0| 69 6c 6c 2d 66 75 6e 63 | 74 69 6f 6e 20 72 65 2d |ill-func|tion re-|
|000007b0| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|000007c0| 22 2f 5c 5c 2a 5c 5c 7c | 5c 5c 2a 2f 22 20 30 20 |"/\\*\\||\\*/" 0 |
|000007d0| 32 20 22 2f 2a 22 20 69 | 6e 2d 63 6f 6d 6d 65 6e |2 "/*" i|n-commen|
|000007e0| 74 20 63 2d 68 61 6e 67 | 2d 61 6c 72 65 61 64 79 |t c-hang|-already|
|000007f0| 2d 64 6f 6e 65 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |-done us|e-local-|
|00000800| 6d 61 70 20 63 2d 63 6f | 6d 6d 65 6e 74 2d 6d 6f |map c-co|mment-mo|
|00000810| 64 65 2d 6d 61 70 20 63 | 2d 69 6e 64 65 6e 74 2d |de-map c|-indent-|
|00000820| 6c 69 6e 65 20 22 2f 2a | 20 22 20 67 65 74 2d 63 |line "/*| " get-c|
|00000830| 75 72 72 65 6e 74 2d 66 | 69 6c 6c 20 72 65 63 75 |urrent-f|ill recu|
|00000840| 72 73 69 76 65 2d 65 64 | 69 74 20 73 65 61 72 63 |rsive-ed|it searc|
|00000850| 68 2d 66 6f 72 77 61 72 | 64 20 33 20 37 39 20 22 |h-forwar|d 3 79 "|
|00000860| 20 2a 2f 22 20 22 5c 6e | 2a 2f 22 20 22 2a 2f 22 | */" "\n|*/" "*/"|
|00000870| 20 62 75 66 66 65 72 2d | 73 69 7a 65 20 31 20 63 | buffer-|size 1 c|
|00000880| 2d 63 6f 6d 6d 65 6e 74 | 2d 73 74 61 72 74 69 6e |-comment|-startin|
|00000890| 67 2d 62 6c 61 6e 6b 20 | 2d 31 20 73 65 61 72 63 |g-blank |-1 searc|
|000008a0| 68 2d 62 61 63 6b 77 61 | 72 64 20 72 65 2d 73 65 |h-backwa|rd re-se|
|000008b0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 6c 6f 6f |arch-for|ward loo|
|000008c0| 6b 69 6e 67 2d 61 74 20 | 22 5c 6e 22 20 3f 5c 6e |king-at |"\n" ?\n|
|000008d0| 20 63 2d 6d 6f 64 65 2d | 6d 61 70 5d 20 38 20 28 | c-mode-|map] 8 (|
|000008e0| 23 24 20 2e 20 31 33 31 | 33 29 20 6e 69 6c 5d 29 |#$ . 131|3) nil])|
|000008f0| 0a 23 40 35 33 20 47 65 | 74 20 74 68 65 20 66 69 |.#@53 Ge|t the fi|
|00000900| 6c 6c 2d 70 72 65 66 69 | 78 20 61 6e 64 20 66 69 |ll-prefi|x and fi|
|00000910| 6c 6c 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 70 |ll the c|urrent p|
|00000920| 61 72 61 67 72 61 70 68 | 2e 1f 0a 28 64 65 66 61 |aragraph|...(defa|
|00000930| 6c 69 61 73 20 27 73 65 | 74 2d 66 69 6c 6c 2d 61 |lias 'se|t-fill-a|
|00000940| 6e 64 2d 66 69 6c 6c 20 | 23 5b 28 61 72 67 29 20 |nd-fill |#[(arg) |
|00000950| 22 c0 60 21 11 c2 0b 21 | 87 22 20 5b 67 65 74 2d |".`!...!|." [get-|
|00000960| 63 75 72 72 65 6e 74 2d | 66 69 6c 6c 20 66 69 6c |current-|fill fil|
|00000970| 6c 2d 70 72 65 66 69 78 | 20 66 69 6c 6c 2d 70 61 |l-prefix| fill-pa|
|00000980| 72 61 67 72 61 70 68 20 | 61 72 67 5d 20 32 20 28 |ragraph |arg] 2 (|
|00000990| 23 24 20 2e 20 32 32 39 | 34 29 20 22 50 22 5d 29 |#$ . 229|4) "P"])|
|000009a0| 0a 23 40 35 36 20 53 65 | 74 20 74 68 65 20 63 75 |.#@56 Se|t the cu|
|000009b0| 72 72 65 6e 74 20 66 69 | 6c 6c 20 70 72 65 66 69 |rrent fi|ll prefi|
|000009c0| 78 20 61 6e 64 20 6d 6f | 76 65 20 74 6f 20 74 68 |x and mo|ve to th|
|000009d0| 65 20 6e 65 78 74 20 6c | 69 6e 65 2e 1f 0a 28 64 |e next l|ine...(d|
|000009e0| 65 66 61 6c 69 61 73 20 | 27 73 65 74 2d 66 69 6c |efalias |'set-fil|
|000009f0| 6c 2d 61 6e 64 2d 72 65 | 74 75 72 6e 20 23 5b 6e |l-and-re|turn #[n|
|00000a00| 69 6c 20 22 08 ab 84 c1 | 60 21 12 c3 5c 6e b1 02 |il "....|`!..\n..|
|00000a10| 87 22 20 5b 63 2d 63 6f | 6d 6d 65 6e 74 2d 69 6e |." [c-co|mment-in|
|00000a20| 64 65 6e 74 69 6e 67 20 | 67 65 74 2d 63 75 72 72 |denting |get-curr|
|00000a30| 65 6e 74 2d 66 69 6c 6c | 20 66 69 6c 6c 2d 70 72 |ent-fill| fill-pr|
|00000a40| 65 66 69 78 20 3f 5c 6e | 5d 20 32 20 28 23 24 20 |efix ?\n|] 2 (#$ |
|00000a50| 2e 20 32 34 37 30 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 2470) |nil]).#@|
|00000a60| 34 37 20 50 65 72 66 6f | 72 6d 20 61 75 74 6f 2d |47 Perfo|rm auto-|
|00000a70| 66 69 6c 6c 2c 20 62 75 | 74 20 67 65 74 20 66 69 |fill, bu|t get fi|
|00000a80| 6c 6c 2d 70 72 65 66 69 | 78 20 66 69 72 73 74 2e |ll-prefi|x first.|
|00000a90| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 6f 2d |..(defal|ias 'do-|
|00000aa0| 69 6e 64 65 6e 74 65 64 | 2d 61 75 74 6f 2d 66 69 |indented|-auto-fi|
|00000ab0| 6c 6c 20 23 5b 6e 69 6c | 20 22 60 18 8a c1 5c 6e |ll #[nil| "`...\n|
|00000ac0| 54 21 88 c3 c4 78 88 6e | ab 86 c5 c6 08 c7 23 88 |T!...x.n|......#.|
|00000ad0| 8a c8 c4 78 88 6e 29 3f | ad 8a c9 08 21 16 5c 6e |...x.n)?|....!.\n|
|00000ae0| cb 0e 5c 6e b1 02 2a 87 | 22 20 5b 6f 70 6f 69 6e |..\n..*.|" [opoin|
|00000af0| 74 20 6d 6f 76 65 2d 74 | 6f 2d 63 6f 6c 75 6d 6e |t move-t|o-column|
|00000b00| 20 66 69 6c 6c 2d 63 6f | 6c 75 6d 6e 20 22 5e 20 | fill-co|lumn "^ |
|00000b10| 09 5c 6e 22 20 6e 69 6c | 20 72 65 2d 73 65 61 72 |.\n" nil| re-sear|
|00000b20| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5b 20 09 5d |ch-forwa|rd "[ .]|
|00000b30| 22 20 74 20 22 20 09 22 | 20 67 65 74 2d 63 75 72 |" t " ."| get-cur|
|00000b40| 72 65 6e 74 2d 66 69 6c | 6c 20 66 69 6c 6c 2d 70 |rent-fil|l fill-p|
|00000b50| 72 65 66 69 78 20 3f 5c | 6e 5d 20 34 20 28 23 24 |refix ?\|n] 4 (#$|
|00000b60| 20 2e 20 32 36 35 39 29 | 5d 29 0a 23 40 31 30 33 | . 2659)|]).#@103|
|00000b70| 20 47 65 74 20 74 68 65 | 20 63 75 72 72 65 6e 74 | Get the| current|
|00000b80| 20 66 69 6c 6c 20 70 72 | 65 66 69 78 2e 0a 41 20 | fill pr|efix..A |
|00000b90| 76 61 6c 69 64 20 66 69 | 6c 6c 20 70 72 65 66 69 |valid fi|ll prefi|
|00000ba0| 78 20 6d 75 73 74 20 62 | 65 20 62 65 74 77 65 65 |x must b|e betwee|
|00000bb0| 6e 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |n the be|ginning |
|00000bc0| 6f 66 20 74 68 65 20 6c | 69 6e 65 20 61 6e 64 20 |of the l|ine and |
|00000bd0| 70 6f 69 6e 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 |point...|(defalia|
|00000be0| 73 20 27 67 65 74 2d 63 | 75 72 72 65 6e 74 2d 66 |s 'get-c|urrent-f|
|00000bf0| 69 6c 6c 20 23 5b 28 70 | 6e 74 29 20 22 08 c1 89 |ill #[(p|nt) "...|
|00000c00| 1a 1b 1c 8a c5 79 88 60 | c6 0e 07 0c c8 23 88 60 |.....y.`|.....#.`|
|00000c10| 7b 89 13 89 47 53 0b 47 | 4f 89 12 c9 98 ac 89 5c |{...GS.G|O......\|
|00000c20| 6e ca 98 ac 84 0b c9 50 | 13 cb 0b cc c9 23 13 0e |n......P|.....#..|
|00000c30| 0d ab a6 0e 0e ac a2 60 | c1 7f 88 60 1e 0f 1e 10 |.......`|...`....|
|00000c40| c5 79 88 d1 d2 0e 0f c8 | 23 ab 8d 0b d3 60 0e 10 |.y......|#....`..|
|00000c50| 5a d4 5c 22 50 13 c8 16 | 0e 2a 0e 15 d6 d7 0b c5 |Z.\"P...|.*......|
|00000c60| 0b 47 53 4f 21 d8 52 89 | 16 19 16 1a 29 0b 2b 87 |.GSO!.R.|....).+.|
|00000c70| 22 20 5b 70 6e 74 20 6e | 69 6c 20 6c 61 73 74 2d |" [pnt n|il last-|
|00000c80| 63 68 61 72 20 66 69 6c | 6c 20 6f 70 6f 69 6e 74 |char fil|l opoint|
|00000c90| 20 30 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 | 0 re-se|arch-for|
|00000ca0| 77 61 72 64 20 63 6f 6d | 6d 65 6e 74 2d 73 74 61 |ward com|ment-sta|
|00000cb0| 72 74 2d 73 6b 69 70 20 | 74 20 22 20 22 20 22 09 |rt-skip |t " " ".|
|00000cc0| 22 20 72 65 70 6c 61 63 | 65 2d 6c 65 74 74 65 72 |" replac|e-letter|
|00000cd0| 20 22 2f 22 20 63 2d 63 | 6f 6d 6d 65 6e 74 2d 68 | "/" c-c|omment-h|
|00000ce0| 61 6e 67 69 6e 67 2d 69 | 6e 64 65 6e 74 20 63 2d |anging-i|ndent c-|
|00000cf0| 68 61 6e 67 2d 61 6c 72 | 65 61 64 79 2d 64 6f 6e |hang-alr|eady-don|
|00000d00| 65 20 6f 70 6e 74 20 63 | 75 72 72 20 73 65 61 72 |e opnt c|urr sear|
|00000d10| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 20 2d 20 22 |ch-forwa|rd " - "|
|00000d20| 20 6d 61 6b 65 2d 73 74 | 72 69 6e 67 20 33 32 20 | make-st|ring 32 |
|00000d30| 70 61 72 61 67 72 61 70 | 68 2d 73 74 61 72 74 2d |paragrap|h-start-|
|00000d40| 72 65 66 20 22 5c 5c 7c | 5e 22 20 72 65 67 65 78 |ref "\\||^" regex|
|00000d50| 70 2d 71 75 6f 74 65 20 | 22 24 22 20 70 61 72 61 |p-quote |"$" para|
|00000d60| 67 72 61 70 68 2d 73 74 | 61 72 74 20 70 61 72 61 |graph-st|art para|
|00000d70| 67 72 61 70 68 2d 73 65 | 70 61 72 61 74 65 5d 20 |graph-se|parate] |
|00000d80| 37 20 28 23 24 20 2e 20 | 32 39 32 39 29 5d 29 0a |7 (#$ . |2929)]).|
|00000d90| 28 64 65 66 61 6c 69 61 | 73 20 27 72 65 70 6c 61 |(defalia|s 'repla|
|00000da0| 63 65 2d 6c 65 74 74 65 | 72 20 23 5b 28 73 74 72 |ce-lette|r #[(str|
|00000db0| 20 6f 6c 64 2d 6c 65 74 | 74 65 72 20 6e 65 77 2d | old-let|ter new-|
|00000dc0| 6c 65 74 74 65 72 29 20 | 22 c0 89 c1 5c 6e 47 1b |letter) |"...\nG.|
|00000dd0| 1c 1d 1e 06 0c 0b 57 ab | 9c 5c 6e 0c 89 54 4f 15 |......W.|.\n..TO.|
|00000de0| 0e 06 0d 0e 07 98 ab 84 | 0e 08 aa 81 0d 50 16 06 |........|.....P..|
|00000df0| 0c 54 89 14 aa 60 0e 06 | 2c 87 22 20 5b 6e 69 6c |.T...`..|,." [nil|
|00000e00| 20 30 20 73 74 72 20 73 | 69 7a 65 20 73 70 20 63 | 0 str s|ize sp c|
|00000e10| 20 6e 65 77 2d 73 74 72 | 20 6f 6c 64 2d 6c 65 74 | new-str| old-let|
|00000e20| 74 65 72 20 6e 65 77 2d | 6c 65 74 74 65 72 5d 20 |ter new-|letter] |
|00000e30| 35 5d 29 0a             |                         |5]).    |        |
+--------+-------------------------+-------------------------+--------+--------+